home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvitops / timessl.ps < prev    next >
Text File  |  1991-01-25  |  736b  |  34 lines
  1. %! 
  2. % $Header: /usr/jjc/dvitops/RCS/timessl.ps,v 1.1 89/02/01 09:25:41 jjc Rel $
  3. % implements Times-Slanted.ps
  4.  
  5. /slantmatrix matrix def
  6.  
  7. % oldfontname newfontname angle MakeSlantedFont
  8.  
  9. /MakeSlantedFont {
  10.     slantmatrix exch dup sin exch cos div 2 exch put
  11.     exch
  12.     findfont dup maxlength dict begin
  13.         dup {
  14.             exch dup dup /FID ne exch /UniqueID ne and {
  15.                 exch def
  16.             } {
  17.                 pop pop
  18.             } ifelse
  19.         } forall
  20.         dup 
  21.         /FontBBox 
  22.             exch /FontBBox get aload pop
  23.             slantmatrix transform 4 2 roll slantmatrix transform 4 2 roll
  24.             4 array    astore
  25.         def
  26.         /FontMatrix exch /FontMatrix get slantmatrix matrix concatmatrix def
  27.         dup /FontName exch def
  28.     currentdict end
  29.     definefont pop
  30. } bind def
  31.  
  32.  
  33. /Times-Roman /Times-Slanted 9 MakeSlantedFont
  34.